vbslib

(for Internet Explorer)

Set files = new MultiTextXML_Class
text = files.GetText( "Files\T_MultiTextXML_1.xml#1" )

Function MultiTextXML_Class::GetText( URL as string ) as string

ファイルパス +"#"+ ID属性の値、または、ファイルパス

テキスト・ブロックの内容

ファイルを、リードします。

Function MultiTextXML_Class::IsExist( URL as string ) as boolean

ファイルに、指定の id があるかどうかを返します。

指定の id があるかどうか

ファイルパス +"#"+ ID属性の値、または、ファイルパス

Set files = new MultiTextXML_Class
If files.IsExist( "Files\T_MultiTextXML_1.xml#1" ) Then ...

T_MultiTextXML_IsExist

Function GetXPath( DOMObject as IXMLDOMElement, ShowAttrs as string ) as string

指定した XML の DOM オブジェクトがある場所を表す XPath を返します。

IXMLDOMElement または IXMLDOMAttribute

Empty、または、XPath に含める XML 属性名、またはその配列

DOMObject 引数が IXMLDOMElement クラスのときは、ルート XML 要素からのパスは含まれます。
DOMObject 引数が IXMLDOMAttribute クラスのときは、ルート XML 要素からのパスは含まれません。
その理由は、標準の DOM の仕様書では、IXMLDOMAttribute クラスから、所属する XML 要素が
取得できないからです。

Dim node
Dim root : Set root = LoadXML( "sample.xml", Empty ) ' as IXMLDOMElement

'// GetXPath( root, Empty ) = "/Root"

node = root.selectNodes( "/Root/Test1" )
'// GetXPath( node(0), Empty ) = "/Root/Test1"

node = root.selectNodes( "/Root/Test2/@id" )
'// GetXPath( node(0), Empty ) = "@id"

node = root.selectNodes( "/Root/Test2[@id='1']/Sub" )
'// GetXPath( node(0), Array("id","attr") ) = _
'// "/Root/Test2[@id='1' and @attr='a']/Sub"

→ T_XML.vbs # [T_XPath]

ShowAttrs 引数に指定した、返り値に含める XML 属性は、XPath に含まれるすべて XML 要素、
つまり、親ノードの XML 要素に対しても、XML 属性を含めます。

Function GetXmlAttribute( BaseXmlElement, XPathForXmlElement, AttrName )

XML 属性の値を返します。

XPathForXmlElement の基準となる XML要素（タグ）

属性を変更する XML 要素（タグ）への XPath または Empty

XML 属性の値、文字列型のみ、Empty=属性なし

Dim root : Set root = LoadXML( "in.xml", Empty ) ' as IXMLDOMElement
value = GetXmlAttribute( root, "./Tag1", "attr1" )

→ T_XML.vbs # [T_GetXmlAttribute]

→ getAttribute (IXMLDOMElement)

廃止されました。

XPath に指定したタグ（XML要素）が存在しないときは、作成します。このとき、自動的に改行文字と
タブ文字が入ります。ただし、ルートのXMLタグに

Function XmlWrite( BaseXmlElement as IXMLDOMElement, XPath as string, Value as string ) as boolean

XML のタグの間のテキスト、または XML の属性の値を変更します。

XPath の基準となる XML要素（タグ）

タグの間のテキスト、または XML の属性の位置を表す XPath

変化があったかどうか

変更後のテキストまたは XML 属性の値、""=値なし、Empty=削除する

タグの間のテキストは、厳密には XPath = "/Root/Elem/text()" ですが、XPath = "/Root/Elem" を指定
してください。

→ setAttribute (IXMLDOMElement)

Dim b, is_change, root
Set root = LoadXML( "in.xml", Empty ) '// as IXMLDOMElement
b= XmlWrite( root, "./Tag1/@attr1", 123 )
is_change = is_change or b
If is_change Then root.ownerDocument.save "out.xml"

→ T_XML.vbs # T_XmlWrite

xml:space="preserve"

があるとき、かつ、タグの開始から

XPath = "/Root/Elem" （XML要素へのパス）のとき、Value = "" なら、<Elem/> となります。
XPath = "/Root/Elem" （XML要素へのパス）のとき、Value = Empty なら、<Elem/> を削除します。
XPath = "/Root/Elem/@attr" （XML属性へのパス）のとき、Value = "" なら、<Elem attr=""/> となります。
XPath = "/Root/Elem/@attr" （XML属性へのパス）のとき、Value = Empty なら、<Elem/> となります。

終了までが１行の中にある部分の中に、新規タグを作成するときは、改行文字もタブ文字も入りません。

Sub XmlWriteEncoding( RootXmlElement as IXMLDOMElement, CharSet as string )

XML ファイルの文字コードを指定します。

ルートの XML要素（タグ）

→ T_XML.vbs # T_XmlWrite

Sub XmlInsertAfter( in_out_ReferenceNode as IXMLDOMElement, in_NewNode as IXMLDOMElement )

兄弟関係の次になるように、XML 要素を追加します。

in_out_ReferenceNode

XPath の基準となる XML要素（タグ）

タグの間のテキスト、または XML の属性の位置を表す XPath

テキストまたは XML 属性の値。文字列型

→ insertBefore (IXMLDOMElement)

Function XmlAttr( s as string ) as string

" " で囲む XML の属性値に（

s = XmlAttr( "<""'" )

s は、"<"'" になります

→ T_XML.vbs # [T_XmlText]

→ StrT_changeToXmlAttr (clib)

に）変換します。

→ XPath のエスケープ文字、バックスラッシュ \

s は、"<""'" になります

s = XmlAttrA( "<""'" )

' ' で囲む XML の属性値に（実体参照に）変換します。

Function XmlAttrA( s as string ) as string

Function XmlText( s as string ) as string

XML のテキスト（タグの外）に（

Assert XmlText( "<""" ) = "<"""

に）変換します。

Sub XmlSort( BaseXmlElement as IXMLDOMElement, XPath as string,
CompareFunc as function, CompareFuncParam as variant )

XML のタグを並べ替えします。

XPath の基準となる XML要素（タグ）

並べ替えするタグの位置を表す XPath

CompareFunc の第3引数

Sub Main()
Set root = LoadXML( "Sample.xml", Empty )
XmlSort root, "T", GetRef( "SampleCompare" ), Empty
End Sub

Function SampleCompare( in_LeftTag, in_RightTag, in_Parameter )
left_text = in_LeftTag.selectSingleNode( "./EN/text()" ).nodeValue
right_text = in_RightTag.selectSingleNode( "./EN/text()" ).nodeValue
SampleCompare = StrComp( left_text, right_text, 1 )
End Function

<?xml version="1.0" encoding="UTF-16"?>
<Translate>
<T><JP>日本語</JP><EN>2.Japanese</EN></T>
<T><JP>英語</JP><EN>3.English</EN></T>
<T><JP>仏語</JP><EN>1.French</EN></T>
</Translate>

<?xml version="1.0" encoding="UTF-16"?>
<Translate>
<T><JP>仏語</JP><EN>1.French</EN></T>
<T><JP>日本語</JP><EN>2.Japanese</EN></T>
<T><JP>英語</JP><EN>3.English</EN></T>
</Translate>

T タグをソートする。ソートキーは、T/EN。

Function ObjToXML( TagName as string, Objs as object or array, Opt as variant ) as string

オブジェクトの基本的なデータを XML 文字列に変換します。

s = ObjToXML( Empty, obj, Empty )

ルート・タグ名、Empty にすると、ルートタグを追加しません。

XML データの内容にするオブジェクト、またはその配列

Empty を指定してください

オブジェクトのクラス名と、Name プロパティ、DefinePath プロパティから XML データを作成します。
他のプロパティも含んだ XML データは、xml プロパティを作成してください。

Function ChangeToXml( XML as string or object ) as IXMLDOMElement

XML 文字列などを、XML 要素オブジェクトに変換します。

・XML が記述された文字列

などで取得した

引数に指定できるものは、次のものがあります。

・ParentProcess や ChildProcess

XML ファイルをロードする

Function SetXmlAttribute( BaseXmlElement as IXMLDOMElement, XPathForXmlElement as string,
AttrName as string, AttrValue as string ) as boolean

XML 属性の値を変更します。

XPathForXmlElement の基準となる XML要素（タグ）

属性を変更する XML 要素（タグ）への XPath または Empty

変更後の XML 属性の値、""=値なし、Empty=属性を削除する

変化があったかどうか

→ setAttribute (IXMLDOMElement)

Dim b, is_change
Dim root : Set root = LoadXML( "in.xml", Empty ) '// as IXMLDOMElement
b= SetXmlAttribute( root, "./Tag1", "attr1", "1234" )
is_change = is_change or b
If is_change Then root.ownerDocument.save "out.xml"

→ T_XML.vbs # T_SetXmlAttribute

XPathForXmlElement に該当する XML 要素が複数あったときは、すべての XML 要素の属性を変更
します。

XPathForXmlElement に該当する XML 要素が無かったときは、XML 要素を追加します。

廃止されました。

Sub UpdateLineAttributeInXML( in_Path as string, in_AttributeName as string )

XML ファイルの中の行番号を値に持つ XML属性の値を、実際の行番号に合わせます。

内容を置き換える XML ファイルのパス

UpdateLineAttributeInXML "Sample.xml", "@line_num"

内部で XML の構文解析は行いません。単純に置き換えているだけです。

Sample.xml ファイルを処理する前：

Sample.xml ファイルを処理した後：

"@"+ XML属性の名前

T_UpdateLineAttributeInXML

XML の Variable タグ

XML ファイルを整形します

バイナリファイル

レジストリファイル

文字列 TextStream

メイクファイル

指定した VBScript ファイルの中の関数を呼び出し、終了するまで待ちます。

クラス定義や関数定義が入った VBSファイルをインクルードします。

指定したシンボルの関数が定義されているかどうかを返します。

現在のプロセスのまま

コマンドライン・オプションが指定されているかどうかを返します。

環境変数を展開します

指定したコマンドラインを新プロセスで実行します。終了を待ちません。

指定したコマンドラインを新プロセスで実行します。終了を待ちます。

指定した時間だけ待ちます。

指定したファイルが作られるまで待ちます。

管理者権限を持った新プロセスで実行します。終了を待ちます。

コマンドラインの引数を返します。（改良版）

他にもあります。左のツリーから選択してください。

Sub start( cmdline as string )

指定したコマンドラインを新プロセスで実行します。終了を待ちません。

cmdline 引数に環境変数を含めることができます。（%var% 形式）

start """%ProgramFiles%\Movie Maker\moviemk.exe"""

cmdline 引数にフォルダやデータファイルのパスを指定すると、そのフォルダや
ファイルをダブルクリックしたときと同じように開きます。

コマンドラインでは、パスをダブルクォーテーションで囲むこと

ファイルが見つからないと、E_WIN32_FILE_NOT_FOUND エラーになります

Dim cmd
cmd = Setting_getEditorCmdLine( 1 )
cmd = Replace( cmd, "%1", "C:\file.txt" )
start cmd

CPU がマルチコアであれば、複数のプロセスによる並列処理になり高速になります。

→ T_Start_Manually.vbs # [T_StartErr]

start "cmd.exe /C cscript //nologo sample.vbs | "+ g_vbslib_ver_folder +_
"safetee\safetee.exe -o Sample_out.txt & exit"

cmd.exe /C を経由して実行してください。 > でリダイレクトすると内容が表示されない
ので、パイプを経由して safetee（または tee）を実行してください。また、パイプを
使う場合、実行後にウィンドウが残らないように、exit してください。

cmdline 引数に、\?InCurrentProcessFunc\(関数名) を指定すると、指定した関数を
呼び出します。呼び出した関数から返ると、start 関数から戻ります。

start の後にすぐに終了すると、開けないことがあります。

で、すぐに終了しないようにしてください。

ホームページを開く

start "http://www.example.com/"

start """C:\Program Files\Internet Explorer\iexplore.exe"" "+ a_URL

start するプロセスにパラメーターを渡す

Function RunProg( cmdline as string, stdout_stderr_redirect as string ) as integer

指定したコマンドラインを新プロセスで実行します。終了を待ちます。

stdout_stderr_redirect

コマンドライン（実行ファイルパス＋パラメータ）

出力先のファイルパス(下記)

エラーレベル（main 関数の返り値）

Empty や "" のときは、標準出力へ出力し、ファイルに保存しません。
"nul" のときは、標準出力へ出力せず、出力内容を破棄します。

stdout_stderr_redirect 引数

コマンド・プロンプトで使えるコマンドを実行するときは、次のようにしてください。

RunProg "cmd /c (dir > files.txt)", ""

RunProg "cmd /c (cd sub & dir > ..\files.txt)", ""

複数のコマンドを実行するときは、& をつけてください。